From e92bba21ccd779f9be9f2a07b24eab6d87c243eb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 29 Nov 2000 14:53:37 +0000 Subject: [PATCH] (combine-run-hooks): Only run-hooks if there's a hook to run. --- lisp/subr.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 3adad4268aa..6abec8c5b41 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1140,7 +1140,8 @@ in BODY." (setq ,saved-combine-run-hooks combine-run-hooks) (fset 'run-hooks ,saved-run-hooks) (setq combine-run-hooks t) - (apply 'run-hooks ,saved-combine-run-hooks)))))) + (if ,saved-combine-run-hooks + (apply 'run-hooks ,saved-combine-run-hooks))))))) (defmacro with-syntax-table (table &rest body) -- 2.30.2